home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / alien armada (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  73 lines
  1. 10 zz=36878:a=36879:b=700:c=.:restore
  2. 20 pokezz,15
  3. 30 pokea,8:printchr$(14)"[147]";tab(5)"[193]lien [193]rmada"
  4. 40 print"[195]hoose a number:":printtab(5)"[156]1) [196]escription":printtab(5)"2) [211]coring"
  5. 50 printtab(5)"3) [195]ontrols":printtab(5)"4) [204]oad [199]ame":printtab(5)"5) [197]xit"
  6. 60 print"[215]hich one?"
  7. 70 forj=1to2:restore:ford=1to6:reade:poke36875,e:fort=1to200:nextt:nextd:nextj
  8. 80 getx$:ifx$=""then80
  9. 90 ifx$="1"then150
  10. 100 ifx$="2"then230
  11. 110 ifx$="3"then350
  12. 120 ifx$="4"then420
  13. 130 ifx$="5"then470
  14. 140 restore:goto80
  15. 150 pokea,59:print"[147][144]     [196]escription":pokezz,0
  16. 160 print"  [217]ou, a [218]argian [211]tar [215]arrior, must defend  your home by warding"
  17. 170 print"off the [199]org forces.  [217]our ultimate goal is to shoot through the"
  18. 180 print"aliens and destroy    the [199]org mothership.    [197]ach alien has three";
  19. 190 print"lives. [194]irds, bombs,  and aliens swoop down to destroy you."
  20. 200 print"  [195]an you survive?":print" [208]ress c[146] to continue.[146][145]"
  21. 210 getx$:ifx$<>"c"then210
  22. 220 goto10
  23. 230 pokea,10:pokezz,0:print"[147]";tab(7);"[211]coring"
  24. 240 print"[193]lien        10":print"[193]ttacking":print"[193]lien        1000"
  25. 250 print"[194]ird         100":print"[194]omb         10"
  26. 260 print"[205]othership   2000-5000"
  27. 270 print"[208]ress c[146] to continue."
  28. 280 getx$:ifx$<>"c"then280
  29. 290 print"[147]  [212]he attacking aliensappear when the player"
  30. 300 print"[145]has reached a total of10,000 points.":print"  [211]kill levels 0-4"
  31. 310 print"  start with 6 ships.":print"  [211]kill levels 5-9      start with 3 ships."
  32. 320 print" [208]ress c[146] to continue."
  33. 330 getx$:ifx$<>"c"then330
  34. 340 goto10
  35. 350 pokea,125:pokezz,0:print"[147][144]";tab(7);"[195]ontrols"
  36. 360 print"       [203]eyboard":print"   l[146]-left  ;[146]-right"
  37. 370 printtab(8)"s[146]-fire":print"  [207]r use the joystick to move the ship."
  38. 380 print"  [195]hoose skill levels with numeric keys on  the keyboard."
  39. 390 print" [208]ress c[146] to continue."
  40. 400 getx$:ifx$<>"c"then400
  41. 410 goto10
  42. 420 pokezz,0:pokea,108:print"[147]   [204]oading [208]art [212]wo";"        [208]lease [215]ait"
  43. 430 printtab(6)"[199]ood luck!":restore:fora=1to6:readb:next:fora=7168to7431
  44. 440 readb:pokea,b:next
  45. 450 fora=7552to7631:readb:pokea,b:next
  46. 460 load"aa",8,1:end
  47. 470 pokezz,0:end
  48. 480 data233,236,231,223,231,0
  49. 490 data34,20,99,20,34,119,99,65,0,65,34,20,20,8,0,0,8,8,8,8
  50. 500 data20,34,20,34,73,42,0,99,0,42
  51. 510 data73,0,126,90,126,90,126,90,36,24,28,8,28,20,20,20,28,8
  52. 520 data60,24,60,44,44,44,60,24,240
  53. 530 data8,4,2,3,15,60,248,31,63,106,234,170,226,127,62,248,252,70,215,85,199,254,124,15
  54. 540 data16,32,64,192,240,60,31,221,222,239,247,255,247,115,33
  55. 550 data127,252,240,231,255,223,142
  56. 560 data4,254,63,15,231,255,251,113,32,187,123,247,239,255
  57. 570 data239,206,132,18,9,23,36,18,146
  58. 580 data73,36,73,73,40,165,148,85,64,0,41,41,74,18,84,85,1
  59. 590 data0,16,36,72,81,146,37,73,18,144
  60. 600 data37,73,210,20,101,9,2,0,64,85,149,148,37,8,41,0,1,85
  61. 610 data84,18,74,74,41,2,18,73,37,164
  62. 620 data146,72,64,0,0,36,24,24,36,0,0,4,2,2,6,24,32,192,0
  63. 630 data193,38,24,0,0,0,0,0,216,39,3,0
  64. 640 data0,0,0,0,6,200,48,0,0,0,0,0,204,110,168,200,220,238
  65. 650 data206,12,24,60,126,90,90,126,60
  66. 660 data34,0,36,24,126,90,126,36,96,24,60,66,165,129,90,60,0,0,0,0,0,0,0,0,0,60,126,102
  67. 670 data102,102,102,126,60,24,56,120,24,24,24,60,126,24,60
  68. 680 data102,6,12,24,62,126,60,126,6,28
  69. 690 data6,6,62,124,4,12,28,52,126,12,12,12,62,124,96,108,54
  70. 700 data2,102,60,28,62,96,96,124,102
  71. 710 data102,60,60,126,102,12,12,24,24,48,60,102,102,60,102,102,102,60,60,126,102,126,62
  72. 720 data12,24,48
  73.